home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / ms15.exe / aliases.ini next >
Encoding:
INI File  |  1997-03-22  |  19.8 KB  |  559 lines
  1. [Aliases]
  2. n0=/op /mode # +ooo $$1 $2 $3
  3. n1=/dop /mode # -ooo $$1 $2 $3
  4. n2=/j /join #$$1
  5. n3=/p /part #
  6. n4=/n /names #$$1
  7. n5=/w /whois $$1
  8. n6=/k /kick # $$1
  9. n7=/q /query $$1
  10. n8=/hop /part # | /join #$$1
  11. n9=/send /dcc send $1 $2
  12. n10=/chat /dcc chat $1
  13. n11=/ping /ctcp $$1 ping
  14. n12=/onquit {
  15. n13=  .timer750 1 30 /unset %split
  16. n14=  .timer751 1 30 /unset %splitlist
  17. n15=  if (%splitstat == OFF) { halt }
  18. n16=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
  19. n17=    set %split2 $token(1,46,$parm2)
  20. n18=    set %split $token(1,46,$parm1)
  21. n19=    if %split !isin %splitlist {
  22. n20=      set %splitlist %splitlist %split
  23. n21=      echo -a Netsplit Waring:  $+ %split $+ / $+ %split2 $+  %ver
  24. n22=    }
  25. n23=  }
  26. n24=}
  27. n25=colr if (*2 != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
  28. n26=under return $chr(31) *1 $chr(31)
  29. n27=bold return $chr(2) *1 $chr(2)
  30. n28=colr if ($2* != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
  31. n29=idler { 
  32. n30=  .timer22 0 1 if ($idle == 300) { idleaway  } 
  33. n31=  else { halt } 
  34. n32=}
  35. n33=wontstop { if (%away != $null) { .timer14 0 1000 counting | .timer69 0 1 inc %counter 1 | .timer23 0 1 titleaway } | else { idler } }
  36. n34=idleaway {
  37. n35=  ame Set Away at $under($time) , $under($date) $bold($colr(12,Auto Away On Idle.))  | .timer22 off | .timer14 0 1000 counting | %ppage = ╗Pager is ?┐½ | %away = Auto Away On Idle | %pager = OFF
  38. n36=  .enable #away | .timer69 0 1 inc %counter 1 
  39. n37=}
  40. n38=counting ame is away for $under($duration(%counter))  %ppage
  41. n39=titleSyCh :start | %BigQ = $$?="Reset The On Line Timer? (Y or N)" | if ((%BigQ != Y) && (%BigQ != N)) { echo 4 -a *** iNvalid Pager Option Please Chose $colr(12,"Y or N") *** | goto start } | elseif (%BigQ == Y ) { unset %titleSecs | echo 4 -s ** ReSeting On Line Timer ** } | elseif (%BigQ == N) { echo 4 -s ** Resuming On Line Timer ** } | .timer264 0 1 inc %titleSecs | .timer265 0 1 titleperf | .timer99 0 3600 ding
  42. n40=titleaway titlebar *«* $+ Away For $duration(%counter) $+ *«*
  43. n41=titleperf {
  44. n42=  if (%away == $null) { titlebar *«*I Have Been On Line For $duration(%titlesecs) $+ *«* }
  45. n43=  else { halt }
  46. n44=}
  47. n45=ding { ame I Have Been On Line For $duration(%titleSecs) }
  48. n46=/here /say 1,8C8,1A1,8U8,1T1,8I8,1O1,8N4,4 0,4 $me is here! 4,4 1,8C8,1A1,8U8,1T1,8I8,1O1,8N
  49. n47=atime { 
  50. n48=  set %atime $gettok($time,1,58)
  51. n49=  if (%atime >= 13) { %atime = %atime - 12 | return %atime $+ : $+ $gettok($time,2,58) $+ pm }
  52. n50=  else if (%atime == 12) { return %atime $+ : $+ $gettok($time,2,58) $+ pm }
  53. n51=  else if (%atime == 0) { %atime = %atime + 12 | return %atime $+ : $+ $gettok($time,2,58) $+ am }
  54. n52=  else { return %atime $+ : $+ $gettok($time,2,58) $+ am }
  55. n53=}
  56. n54=/clock {
  57. n55=  say 12,1Digital Clock
  58. n56=  say 11,1 The Time is:
  59. n57=  say 9,1 $atime Here
  60. n58=  say 9,1 On My Clock. 
  61. n59=} 
  62. n60=/eclock {
  63. n61=  echo 1 -a 12,1Digital Clock
  64. n62=  echo 1 -a 11,1 The Time is:
  65. n63=  echo 1 -a 9,1 $atime Here
  66. n64=  echo 1 -a 9,1 On My Clock. 
  67. n65=}
  68. n66=/etoday {
  69. n67=  echo 1 -a 12,1Digital Date 
  70. n68=  echo 1 -a 11,1Date Follows:
  71. n69=  .timer 1 2 echo 3 -a 9,1 $day 
  72. n70=  .timer 1 4 echo 3 -a 9,1 $adate 
  73. n71=} 
  74. n72=/tom {
  75. n73=  /to 
  76. n74=  echo 2 -a 12,1Digital Clock 
  77. n75=  echo 2 -a 11,1 Tomorrow is:
  78. n76=  .timer980 1 4 echo 2 -a 9,1 %to 
  79. n77=  .timer982 1 5 echo 2 -a 9,1On The Digital Clock 
  80. n78=}
  81. n79=/to {
  82. n80=  if $day = Sunday { /set %to Monday }
  83. n81=  if $day = Monday { /set %to Tuesday }
  84. n82=  if $day = Tueday { /set %to Wednesday }
  85. n83=  if $day = Wednesday { /set %to Thursday }
  86. n84=  if $day = Thursday { /set %to Friday }
  87. n85=  if $day = Friday { /set %to Saturday }
  88. n86=  if $day = Saturday { /set %to Sunday }
  89. n87=}
  90. n88=stat {
  91. n89=  set %an 0
  92. n90=  set %iop 0
  93. n91=  set %bans 0
  94. n92=  if ( $1 == -c ) {
  95. n93=    set %way msg 
  96. n94=  }
  97. n95=  if ( $1 == -e ) {
  98. n96=    set %way echo 
  99. n97=  }
  100. n98=  set %key $chan(#).key
  101. n99=  if ( %key == $null ) {
  102. n100=    set %key NO KEY!
  103. n101=  }
  104. n102=  .enable #topic
  105. n103=  .enable #sban
  106. n104=  .enable #modes
  107. n105=  .enable #stat
  108. n106=  set %nick $nick(0,#)
  109. n107=  set %onick $opnick(0,#)
  110. n108=  set %vnick $vnick(0,#)
  111. n109=  %nnick = %nick - %onick
  112. n110=  %nnick = %nnick - %vnick
  113. n111=  set %chan #
  114. n112=  topic %chan
  115. n113=  mode %chan 
  116. n114=  mode %chan +b
  117. n115=  who %chan
  118. n116=  %way %chan %ks1 4½2Researching channel info.....4╗ %ks2
  119. n117=}
  120. n118=fstat {
  121. n119=  if ( $token(0,32,%topic) >= 6 ) {
  122. n120=    %topic = $token(1,32,%topic) $token(2,32,%topic) $token(3,32,%topic) $token(4,32,%topic) $token(5,32,%topic) $+ ...
  123. n121=  }
  124. n122=  %op = %onick * 10000
  125. n123=  %op = %op / %nick
  126. n124=  %right = $right(2,%op)
  127. n125=  %len = $len(%op) - 2
  128. n126=  %op = $left(%len,%op) $+ . $+ %right
  129. n127=  if ( %onick == 0 ) {
  130. n128=    set %op 0
  131. n129=  }
  132. n130=  %vp = %vnick * 10000
  133. n131=  %vp = %vp / %nick
  134. n132=  %right = $right(2,%vp)
  135. n133=  %len = $len(%vp) - 2
  136. n134=  %vp = $left(%len,%vp) $+ . $+ %right
  137. n135=  if ( %vnick == 0 ) {
  138. n136=    set %vp 0
  139. n137=  }
  140. n138=  %ap = %an * 10000
  141. n139=  %ap = %ap / %nick
  142. n140=  %right = $right(2,%ap)
  143. n141=  %len = $len(%ap) - 2
  144. n142=  %ap = $left(%len,%ap) $+ . $+ %right
  145. n143=  if ( %an == 0 ) {
  146. n144=    set %ap 0
  147. n145=  }
  148. n146=  %np = %nnick * 10000
  149. n147=  %np = %np / %nick
  150. n148=  %right = $right(2,%np)
  151. n149=  %len = $len(%np) - 2
  152. n150=  %np = $left(%len,%np) $+ . $+ %right
  153. n151=  if ( %nnick == 0 ) {
  154. n152=    set %np 0
  155. n153=  }
  156. n154=  %way %chan 2OPS: %onick $+ 4( $+ %op $+ $chr(37) $+ ) 2NON-OPS: %nnick $+ 4( $+ %np $+ $chr(37) $+ )
  157. n155=  %way %chan 2VOICED: %vnick $+ 4( $+ %vp $+ $chr(37) $+ ) 16_2TOTAL: %nick
  158. n156=  %way %chan 2IRCOPS: %iop $+ 4( $+ %ip $+ $chr(37) $+ ) 16_2MODES: %modes
  159. n157=  %way %chan 2KEY: %key 16___2BANS: %bans
  160. n158=  %way %chan 2TOPIC: %topic
  161. n159=}
  162. n160=f11 { 
  163. n161=  .ignore -rinpt *!*@*
  164. n162=  .timer851 1 50 .ignore -rinpt *!*@*
  165. n163=  .disable #floodultracommand
  166. n164=  .disable #floodultraevent
  167. n165=  echo 2 -a ü▀ΩtπFú≥≤╨ü Ultra Protection is now 4OFF.
  168. n166=  if ((%onick != $me ) && (%onick != $null)) { nick %onick | echo 2 -a ü▀ΩtπFú≥≤╨ü Restore Nickname to ü $+ %onick $+ ü }
  169. n167=  unset %onick
  170. n168=}
  171. n169=f12 {
  172. n170=  if %onick == $null {
  173. n171=    .ignore -inpt *!*@* 
  174. n172=    .timer851 1 50 .ignore -inpt *!*@*
  175. n173=    .enable #floodultracommand
  176. n174=    .enable #floodultraevent
  177. n175=    set %onick $me 
  178. n176=    echo 2 -a ü▀ΩtπFú≥≤╨ü Ultra Protection is now 3ON.
  179. n177=  }
  180. n178=  else {
  181. n179=    nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
  182. n180=    .ignore -inpt *!*@*
  183. n181=    echo 2 -a ü▀ΩtπFú≥≤╨ü Random Nickname.
  184. n182=  }
  185. n183=}
  186. n184=/ece {
  187. n185=  %c = *1
  188. n186=  set %c $replace(%c,a,4a)
  189. n187=  set %c $replace(%c,b,3B)
  190. n188=  set %c $replace(%c,c,6C) 
  191. n189=  set %c $replace(%c,d,7D) 
  192. n190=  set %c $replace(%c,e,4e) 
  193. n191=  set %c $replace(%c,f,12F) 
  194. n192=  set %c $replace(%c,g,13G) 
  195. n193=  set %c $replace(%c,h,6H) 
  196. n194=  set %c $replace(%c,i,4i) 
  197. n195=  set %c $replace(%c,j,J) 
  198. n196=  set %c $replace(%c,k,3K) 
  199. n197=  set %c $replace(%c,l,L) 
  200. n198=  set %c $replace(%c,m,4M) 
  201. n199=  set %c $replace(%c,n,6N)
  202. n200=  set %c $replace(%c,o,4o) 
  203. n201=  set %c $replace(%c,p,12P) 
  204. n202=  set %c $replace(%c,q,Q) 
  205. n203=  set %c $replace(%c,r,13R) 
  206. n204=  set %c $replace(%c,s,7S) 
  207. n205=  set %c $replace(%c,t,T) 
  208. n206=  set %c $replace(%c,u,4u) 
  209. n207=  set %c $replace(%c,v,V) 
  210. n208=  set %c $replace(%c,w,12W) 
  211. n209=  set %c $replace(%c,x,7X) 
  212. n210=  set %c $replace(%c,y,Y) 
  213. n211=  set %c $replace(%c,z,6z) 
  214. n212=  set %c $replace(%c,?,12┐15?) 
  215. n213=  set %c $replace(%c,!,12í15!)   
  216. n214=  say %c
  217. n215=  unset %c
  218. n216=}
  219. n217=/bac {
  220. n218=  unset %final
  221. n219=  unset %endreverse
  222. n220=  set %sections $token(0,32,*1)
  223. n221=  :revstart
  224. n222=  if (%sections == 0) goto revend  
  225. n223=  set %reverseme $token(%sections,32,*1)
  226. n224=  set %length $len(%reverseme)
  227. n225=  set %backtext $mid(%length,1,%reverseme)  
  228. n226=  dec %length 1  
  229. n227=  :backstart
  230. n228=  if (%length == 0) goto backend
  231. n229=  set %tempback $mid(%length,1,%reverseme)
  232. n230=  set %backtext %backtext $+ %tempback 
  233. n231=  dec %length 1
  234. n232=  goto backstart
  235. n233=  :backend
  236. n234=  set %reversed_text %backtext
  237. n235=  set %temp %reversed_text
  238. n236=  set %final %final %temp
  239. n237=  dec %sections 1
  240. n238=  goto revstart  
  241. n239=  :revend
  242. n240=  set %endreverse %final
  243. n241=  say %final
  244. n242=}
  245. n243=/bg { %num = 1 | unset %msg  | %msg =  | %color = p
  246. n244=  :start
  247. n245=  if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
  248. n246=  if %color == y  { %num2 = 9 | %num3 = 1 | %color = p | goto add }
  249. n247=  :add
  250. n248=  if $mid(%num,1, *1) != $null {
  251. n249=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  252. n250=    inc %num 
  253. n251=  goto start  }
  254. n252=  say %msg
  255. n253=}
  256. n254=/cc { %num = 1 | unset %msg  | %msg =  | %color = p
  257. n255=  :start
  258. n256=  if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
  259. n257=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  260. n258=  :add
  261. n259=  if $mid(%num,1, *1) != $null {
  262. n260=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  263. n261=    inc %num 
  264. n262=  goto start  }
  265. n263=  say %msg
  266. n264=}
  267. n265=/ec {
  268. n266=  set %ftalk *1
  269. n267=  %ftalk = $replace(%ftalk,a,2σ)
  270. n268=  %ftalk = $replace(%ftalk,b,3■)
  271. n269=  %ftalk = $replace(%ftalk,c,4╟)
  272. n270=  %ftalk = $replace(%ftalk,d,5╨)
  273. n271=  %ftalk = $replace(%ftalk,e,6δ)
  274. n272=  %ftalk = $replace(%ftalk,f,7F)
  275. n273=  %ftalk = $replace(%ftalk,g,8G)
  276. n274=  %ftalk = $replace(%ftalk,h,9H)
  277. n275=  %ftalk = $replace(%ftalk,i,10ε)
  278. n276=  %ftalk = $replace(%ftalk,j,11J)
  279. n277=  %ftalk = $replace(%ftalk,k,12K)
  280. n278=  %ftalk = $replace(%ftalk,l,13ú)
  281. n279=  %ftalk = $replace(%ftalk,m,14M)
  282. n280=  %ftalk = $replace(%ftalk,n,15±)
  283. n281=  %ftalk = $replace(%ftalk,o,2°)
  284. n282=  %ftalk = $replace(%ftalk,p,3╢)
  285. n283=  %ftalk = $replace(%ftalk,q,4Q)
  286. n284=  %ftalk = $replace(%ftalk,r,5«)
  287. n285=  %ftalk = $replace(%ftalk,s,6º)
  288. n286=  %ftalk = $replace(%ftalk,t,7T)
  289. n287=  %ftalk = $replace(%ftalk,u,8╡)
  290. n288=  %ftalk = $replace(%ftalk,v,9V)
  291. n289=  %ftalk = $replace(%ftalk,w,10\\')
  292. n290=  %ftalk = $replace(%ftalk,x,11╫)
  293. n291=  %ftalk = $replace(%ftalk,y,12Ñ)
  294. n292=  %ftalk = $replace(%ftalk,z,12Z)
  295. n293=  %ftalk = $replace(%ftalk,!,4!)
  296. n294=  %ftalk = $replace(%ftalk,?,4?)
  297. n295=  %ftalk = $replace(%ftalk,*,5*)
  298. n296=  %ftalk = $replace(%ftalk,^,6^)
  299. n297=  %ftalk = $replace(%ftalk,$,7$)
  300. n298=  %ftalk = $replace(%ftalk,@,9@)
  301. n299=  %ftalk = $replace(%ftalk,&,10&)
  302. n300=  %ftalk = $replace(%ftalk,",11")
  303. n301=  %ftalk = $replace(%ftalk,<,12<)
  304. n302=  %ftalk = $replace(%ftalk,>,13>!)
  305. n303=  %ftalk = $replace(%ftalk,!,í)   
  306. n304=  SAY %ftalk
  307. n305=}
  308. n306=/e {
  309. n307=  set %ftalk *1
  310. n308=  %ftalk = $replace(%ftalk,a,σ)
  311. n309=  %ftalk = $replace(%ftalk,b,▀)
  312. n310=  %ftalk = $replace(%ftalk,c,⌐)
  313. n311=  %ftalk = $replace(%ftalk,d,╨)
  314. n312=  %ftalk = $replace(%ftalk,e,δ)
  315. n313=  %ftalk = $replace(%ftalk,f,â)
  316. n314=  %ftalk = $replace(%ftalk,g,G)
  317. n315=  %ftalk = $replace(%ftalk,h,H)
  318. n316=  %ftalk = $replace(%ftalk,i,ε)
  319. n317=  %ftalk = $replace(%ftalk,j,J)
  320. n318=  %ftalk = $replace(%ftalk,k,K)
  321. n319=  %ftalk = $replace(%ftalk,l,ú)
  322. n320=  %ftalk = $replace(%ftalk,m,M)
  323. n321=  %ftalk = $replace(%ftalk,n,±)
  324. n322=  %ftalk = $replace(%ftalk,o,°)
  325. n323=  %ftalk = $replace(%ftalk,p,╢)
  326. n324=  %ftalk = $replace(%ftalk,q,Q)
  327. n325=  %ftalk = $replace(%ftalk,r,«)
  328. n326=  %ftalk = $replace(%ftalk,s,º)
  329. n327=  %ftalk = $replace(%ftalk,t,t)
  330. n328=  %ftalk = $replace(%ftalk,u,╡)
  331. n329=  %ftalk = $replace(%ftalk,v,V)
  332. n330=  %ftalk = $replace(%ftalk,w,\\')
  333. n331=  %ftalk = $replace(%ftalk,x,╫)
  334. n332=  %ftalk = $replace(%ftalk,y,Ñ)
  335. n333=  %ftalk = $replace(%ftalk,z,Z)
  336. n334=  %ftalk = $replace(%ftalk,!,í) 
  337. n335=  %ftalk = $replace(%ftalk,?,┐)   
  338. n336=  say %ftalk
  339. n337=}
  340. n338=/r {
  341. n339=  set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  342. n340=  :loop
  343. n341=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  344. n342=  inc %p
  345. n343=  if ( $mid(%p,1,%i) != á) { inc %c }
  346. n344=  if ( %c > 6 ) { set %c 1 }
  347. n345=  if ( $mid(%p,1,%i) != $null ) { goto loop }
  348. n346=  say %o
  349. n347=  unset %o %i %p %c
  350. n348=}
  351. n349=/brick { %num = 1 | unset %msg  | %msg =  | %color = p
  352. n350=  :start
  353. n351=  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  354. n352=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  355. n353=  :add
  356. n354=  if $mid(%num,1, *1) != $null {
  357. n355=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  358. n356=    inc %num 
  359. n357=  goto start  }
  360. n358=  say %msg
  361. n359=}
  362. n360=/bw { %num = 1 | unset %msg  | %msg =  | %color = p
  363. n361=  :start
  364. n362=  if %color == p { %num2 = 1 | %num3 = 16 | %color = y | goto add }
  365. n363=  if %color == y  { %num2 = 16 | %num3 = 1 | %color = p | goto add }
  366. n364=  :add
  367. n365=  if $mid(%num,1, *1) != $null {
  368. n366=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  369. n367=    inc %num 
  370. n368=  goto start  }
  371. n369=  say %msg
  372. n370=}
  373. n371=/wr { %num = 1 | unset %msg  | %msg =  | %color = p
  374. n372=  :start
  375. n373=  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
  376. n374=  if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
  377. n375=  :add
  378. n376=  if $mid(%num,1, *1) != $null {
  379. n377=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  380. n378=    inc %num 
  381. n379=  goto start  }
  382. n380=  say %msg
  383. n381=}
  384. n382=/rg { %num = 1 | unset %msg  | %msg =  | %color = p
  385. n383=  :start
  386. n384=  if %color == p { %num2 = 9 | %num3 = 4 | %color = y | goto add }
  387. n385=  if %color == y  { %num2 = 4 | %num3 = 9 | %color = p | goto add }
  388. n386=  :add
  389. n387=  if $mid(%num,1, *1) != $null {
  390. n388=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  391. n389=    inc %num 
  392. n390=  goto start  }
  393. n391=  say %msg
  394. n392=}
  395. n393=/b1 /say 2,2  *1 $+ ! | /say 0,2  *1  1,1!  | /say 2,2  *1  1,1! | /say 0,0 1,1 *1 $+ !
  396. n394=/b2 /say 3,3  *1 $+ ! | /say 8,3  *1  1,1!  | /say 3,3  *1  1,1! | /say 0,0 1,1 *1 $+ !
  397. n395=/b3 /say 4,4  *1 $+ ! | /say 0,4  *1  1,1!  | /say 4,4  *1  1,1! | /say 0,0 1,1 *1 $+ !
  398. n396=/b4 /say 8,8  *1 $+ ! | /say 3,8  *1  1,1!  | /say 8,8  *1  1,1! | /say 0,0 1,1 *1 $+ !
  399. n397=/b5 /say 9,9  *1 $+ ! | /say 12,9  *1  1,1!  | /say 9,9  *1  1,1! | /say 0,0 1,1 *1 $+ !
  400. n398=/b6 /say 11,11  *1 $+ ! | /say 2,11  *1  1,1!  | /say 11,11  *1  1,1! | /say 0,0 1,1 *1 $+ !
  401. n399=/b7 /say 12,12  *1 $+ ! | /say 0,12  *1  1,1!  | /say 12,12  *1  1,1! | /say 0,0 1,1 *1 $+ !
  402. n400=/b8 /say 13,13  *1 $+ ! | /say 1,13  *1  1,1!  | /say 13,13  *1  1,1! | /say 0,0 1,1 *1 $+ !
  403. n401=/bt {
  404. n402=  set %bk $$?1="EnteráText" *2
  405. n403=  %bk = $replace(%bk,a,[A])
  406. n404=  %bk = $replace(%bk,b,[B])
  407. n405=  %bk = $replace(%bk,c,[C])
  408. n406=  %bk = $replace(%bk,d,[D])
  409. n407=  %bk = $replace(%bk,e,[E])
  410. n408=  %bk = $replace(%bk,f,[F])
  411. n409=  %bk = $replace(%bk,g,[G])
  412. n410=  %bk = $replace(%bk,h,[H])
  413. n411=  %bk = $replace(%bk,i,[I])
  414. n412=  %bk = $replace(%bk,j,[J])
  415. n413=  %bk = $replace(%bk,k,[K])
  416. n414=  %bk = $replace(%bk,l,[L])
  417. n415=  %bk = $replace(%bk,m,[M])
  418. n416=  %bk = $replace(%bk,n,[N])
  419. n417=  %bk = $replace(%bk,o,[O])
  420. n418=  %bk = $replace(%bk,p,[P])
  421. n419=  %bk = $replace(%bk,q,[Q])
  422. n420=  %bk = $replace(%bk,r,[R])
  423. n421=  %bk = $replace(%bk,s,[S])
  424. n422=  %bk = $replace(%bk,t,[T])
  425. n423=  %bk = $replace(%bk,u,[U])
  426. n424=  %bk = $replace(%bk,v,[V])
  427. n425=  %bk = $replace(%bk,w,[W])
  428. n426=  %bk = $replace(%bk,x,[X])
  429. n427=  %bk = $replace(%bk,y,[Y])
  430. n428=  %bk = $replace(%bk,z,[Z])
  431. n429=  %bk = $replace(%bk,!,[!])
  432. n430=  %bk = $replace(%bk,?,[?])
  433. n431=  %bk = $replace(%bk,$,[$])
  434. n432=  %bk = $replace(%bk,#,[#])
  435. n433=  %bk = $replace(%bk,/,[/])  
  436. n434=  %bk = $replace(%bk,\,[\])
  437. n435=  %bk = $replace(%bk,|,[|])
  438. n436=  say %bk
  439. n437=  unset %bk
  440. n438=}
  441. n439=/asd  {
  442. n440=  set %asd $$?1="EnteráText" *2
  443. n441=  %asd = $replace(%asd,0,°)
  444. n442=  %asd = $replace(%asd,1,╣)
  445. n443=  %asd = $replace(%asd,2,▓)
  446. n444=  %asd = $replace(%asd,3,│)
  447. n445=  %asd = $replace(%asd,ae,╞)
  448. n446=  %asd = $replace(%asd,a,σ)
  449. n447=  %asd = $replace(%asd,b,▀)
  450. n448=  %asd = $replace(%asd,c,⌐)
  451. n449=  %asd = $replace(%asd,d,╨)
  452. n450=  %asd = $replace(%asd,e,δ)
  453. n451=  %asd = $replace(%asd,i,ε)
  454. n452=  %asd = $replace(%asd,l,ú)
  455. n453=  %asd = $replace(%asd,n,±)
  456. n454=  %asd = $replace(%asd,o,≡) 
  457. n455=  %asd = $replace(%asd,r,«)
  458. n456=  %asd = $replace(%asd,s,º)
  459. n457=  %asd = $replace(%asd,u,╡)
  460. n458=  %asd = $replace(%asd,x,╫)
  461. n459=  %asd = $replace(%asd,y,Ñ)
  462. n460=  %asd = $replace(%asd,!,í)
  463. n461=  %asd = $replace(%asd,?,┐)
  464. n462=  %asd = $replace(%asd,<,½)
  465. n463=  %asd = $replace(%asd,>,╗)
  466. n464=  %asd = $replace(%asd,-,¼)
  467. n465=  %asc = $replace(%asd,:,ª)
  468. n466=  say %asd
  469. n467=  unset %asd
  470. n468=}
  471. n469=/won /enable #whowindow | echo 4 $active %ver  WhoWindow is now...15,15.12,15On15,15.
  472. n470=/woff /disable #whowindow | echo 4 $active %ver  WhoWindow is now...15,15.12,15Off15,15.
  473. n471=/scramo {
  474. n472=  /enable #scramble
  475. n473=  set %Answ $$?="Enter Answer"  
  476. n474=  set %MUA $$?="Mix Up Answer"
  477. n475=  set %Hint $$?="Enter Hint"
  478. n476=  set %Cate $$?="Enter Category:"
  479. n477=  msg $chan 10([Scramble Enabled])
  480. n478=  msg $chan 10([Scrambled Word- %MUA ])  
  481. n479=  msg $chan 10([Hint- %hint ])  
  482. n480=  msg $chan 10([Category- %Cate ])
  483. n481=  msg $chan 10([For Scores- Type !MyScore to view your score])
  484. n482=}
  485. n483=/scramf {
  486. n484=  unset %MUA
  487. n485=  unset %answ
  488. n486=  unset %Cate
  489. n487=  unset %hint
  490. n488=}
  491. n489=/massnotice {
  492. n490=  set %m 0 | set %n $nick(0,$chan)
  493. n491=  :start
  494. n492=  inc %m 1
  495. n493=  if (%m > %n) { unset %m | unset %n | halt }
  496. n494=  if ($nick(%m,$chan) == $me) { goto start }
  497. n495=  /.notice $nick(%m,$chan) $$1 *2
  498. n496=  goto start
  499. n497=}
  500. n498=/massopnotice {
  501. n499=  set %m 0 | set %n $nick(0,$chan)
  502. n500=  :start
  503. n501=  inc %m 1
  504. n502=  if (%m > %n) { unset %m | unset %n | halt }
  505. n503=  if ($nick(%m,$chan) !isop $chan) { goto start }
  506. n504=  if ($nick(%m,$chan) == $me) { goto start }
  507. n505=  /.notice $nick(%m,$chan) $$1 *2
  508. n506=  goto start
  509. n507=}
  510. n508=/massnopnotice {
  511. n509=  set %m 0 | set %n $nick(0,$chan)
  512. n510=  :start
  513. n511=  inc %m 1
  514. n512=  if (%m > %n) { unset %m | unset %n | halt }
  515. n513=  if ($nick(%m,$chan) isop $chan) { goto start }
  516. n514=  if ($nick(%m,$chan) == $me) { goto start }
  517. n515=  /.notice $nick(%m,$chan) $$1 *2
  518. n516=  goto start
  519. n517=}
  520. n518=/massmsg {
  521. n519=  set %m 0 | set %n $nick(0,$chan)
  522. n520=  :start
  523. n521=  inc %m 1
  524. n522=  if (%m > %n) { unset %m | unset %n | halt }
  525. n523=  if ($nick(%m,$chan) == $me) { goto start }
  526. n524=  /.msg $nick(%m,$chan) $$1 *2
  527. n525=  goto start
  528. n526=}
  529. n527=/massopmsg {
  530. n528=  set %m 0 | set %n $nick(0,$chan)
  531. n529=  :start
  532. n530=  inc %m 1
  533. n531=  if (%m > %n) { unset %m | unset %n | halt }
  534. n532=  if ($nick(%m,$chan) !isop $chan) { goto start }
  535. n533=  if ($nick(%m,$chan) == $me) { goto start }
  536. n534=  /.msg $nick(%m,$chan) $$1 *2
  537. n535=  goto start
  538. n536=}
  539. n537=/massnopmsg {
  540. n538=  set %m 0 | set %n $nick(0,$chan)
  541. n539=  :start
  542. n540=  inc %m 1
  543. n541=  if (%m > %n) { unset %m | unset %n | halt }
  544. n542=  if ($nick(%m,$chan) isop $chan) { goto start }
  545. n543=  if ($nick(%m,$chan) == $me) { goto start }
  546. n544=  /.msg $nick(%m,$chan) $$1 *2
  547. n545=  goto start
  548. n546=}
  549. n547=/massping {
  550. n548=  set %m 0 | set %n $nick(0,$chan)
  551. n549=  :start
  552. n550=  inc %m 1
  553. n551=  if (%m > %n) { unset %m | unset %n | halt }
  554. n552=  if ($nick(%m,$chan) == $me) { goto start }
  555. n553=  /.ping $nick(%m,$chan)
  556. n554=  goto start
  557. n555=}
  558. n556=/portscan { /.enable #portscan | /echo 4 -a *** Scanning for all visible ports on $server $+ ! | /stats l }
  559.